function [sbel,dbe,azbel,elbel]=matcar(sbel,dbe,azbel,elbel);

%*** CARTESIAN COORDINATES SBEL(3X1) FROM POLAR COORDINATES

celb=cos(elbel);
selb=sin(elbel);
cazb=cos(azbel);
sazb=sin(azbel);

sbel(1)=dbe.*celb.*cazb;
sbel(2)=dbe.*celb.*sazb;
sbel(3)=-dbe.*selb;

end

